﻿Imports System

Namespace System.Workflow.ComponentModel.Design
    Friend NotInheritable Class ConnectionPointHitTestInfo
        Inherits HitTestInfo
        ' Methods
        Friend Sub New(ByVal connectionPoint As ConnectionPoint)
            MyBase.New(connectionPoint.AssociatedDesigner, (HitTestLocations.Connector Or HitTestLocations.Designer))
            Me.connectionPoint = connectionPoint
        End Sub


        ' Properties
        Friend ReadOnly Property ConnectionPoint As ConnectionPoint
            Get
                Return Me.connectionPoint
            End Get
        End Property


        ' Fields
        Private connectionPoint As ConnectionPoint
    End Class
End Namespace

